#' Heads and Tails
#'
#' displays first and last 5 lines of dater
#' @param x dater
#' @return first and last 5 lines of dater
#' @export
ht <- function (x) rbind(head(x, 5), tail(x, 5))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.